\(\int \frac {\sin ^3(a+b \log (c x^n))}{x} \, dx\) [16]

   Optimal result
   Rubi [A] (verified)
   Mathematica [A] (verified)
   Maple [A] (verified)
   Fricas [A] (verification not implemented)
   Sympy [B] (verification not implemented)
   Maxima [B] (verification not implemented)
   Giac [F]
   Mupad [B] (verification not implemented)

Optimal result

Integrand size = 17, antiderivative size = 43 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=-\frac {\cos \left (a+b \log \left (c x^n\right )\right )}{b n}+\frac {\cos ^3\left (a+b \log \left (c x^n\right )\right )}{3 b n} \]

[Out]

-cos(a+b*ln(c*x^n))/b/n+1/3*cos(a+b*ln(c*x^n))^3/b/n

Rubi [A] (verified)

Time = 0.04 (sec) , antiderivative size = 43, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 1, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.059, Rules used = {2713} \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=\frac {\cos ^3\left (a+b \log \left (c x^n\right )\right )}{3 b n}-\frac {\cos \left (a+b \log \left (c x^n\right )\right )}{b n} \]

[In]

Int[Sin[a + b*Log[c*x^n]]^3/x,x]

[Out]

-(Cos[a + b*Log[c*x^n]]/(b*n)) + Cos[a + b*Log[c*x^n]]^3/(3*b*n)

Rule 2713

Int[sin[(c_.) + (d_.)*(x_)]^(n_), x_Symbol] :> Dist[-d^(-1), Subst[Int[Expand[(1 - x^2)^((n - 1)/2), x], x], x
, Cos[c + d*x]], x] /; FreeQ[{c, d}, x] && IGtQ[(n - 1)/2, 0]

Rubi steps \begin{align*} \text {integral}& = \frac {\text {Subst}\left (\int \sin ^3(a+b x) \, dx,x,\log \left (c x^n\right )\right )}{n} \\ & = -\frac {\text {Subst}\left (\int \left (1-x^2\right ) \, dx,x,\cos \left (a+b \log \left (c x^n\right )\right )\right )}{b n} \\ & = -\frac {\cos \left (a+b \log \left (c x^n\right )\right )}{b n}+\frac {\cos ^3\left (a+b \log \left (c x^n\right )\right )}{3 b n} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.06 (sec) , antiderivative size = 45, normalized size of antiderivative = 1.05 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=-\frac {3 \cos \left (a+b \log \left (c x^n\right )\right )}{4 b n}+\frac {\cos \left (3 \left (a+b \log \left (c x^n\right )\right )\right )}{12 b n} \]

[In]

Integrate[Sin[a + b*Log[c*x^n]]^3/x,x]

[Out]

(-3*Cos[a + b*Log[c*x^n]])/(4*b*n) + Cos[3*(a + b*Log[c*x^n])]/(12*b*n)

Maple [A] (verified)

Time = 2.34 (sec) , antiderivative size = 35, normalized size of antiderivative = 0.81

method result size
derivativedivides \(-\frac {\left (2+{\sin \left (a +b \ln \left (c \,x^{n}\right )\right )}^{2}\right ) \cos \left (a +b \ln \left (c \,x^{n}\right )\right )}{3 n b}\) \(35\)
default \(-\frac {\left (2+{\sin \left (a +b \ln \left (c \,x^{n}\right )\right )}^{2}\right ) \cos \left (a +b \ln \left (c \,x^{n}\right )\right )}{3 n b}\) \(35\)
parallelrisch \(\frac {-9 \cos \left (a +b \ln \left (c \,x^{n}\right )\right )+\cos \left (3 b \ln \left (c \,x^{n}\right )+3 a \right )-8}{12 b n}\) \(38\)

[In]

int(sin(a+b*ln(c*x^n))^3/x,x,method=_RETURNVERBOSE)

[Out]

-1/3/n/b*(2+sin(a+b*ln(c*x^n))^2)*cos(a+b*ln(c*x^n))

Fricas [A] (verification not implemented)

none

Time = 0.25 (sec) , antiderivative size = 37, normalized size of antiderivative = 0.86 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=\frac {\cos \left (b n \log \left (x\right ) + b \log \left (c\right ) + a\right )^{3} - 3 \, \cos \left (b n \log \left (x\right ) + b \log \left (c\right ) + a\right )}{3 \, b n} \]

[In]

integrate(sin(a+b*log(c*x^n))^3/x,x, algorithm="fricas")

[Out]

1/3*(cos(b*n*log(x) + b*log(c) + a)^3 - 3*cos(b*n*log(x) + b*log(c) + a))/(b*n)

Sympy [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 73 vs. \(2 (32) = 64\).

Time = 1.22 (sec) , antiderivative size = 73, normalized size of antiderivative = 1.70 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=\begin {cases} \log {\left (x \right )} \sin ^{3}{\left (a \right )} & \text {for}\: b = 0 \wedge \left (b = 0 \vee n = 0\right ) \\\log {\left (x \right )} \sin ^{3}{\left (a + b \log {\left (c \right )} \right )} & \text {for}\: n = 0 \\- \frac {\sin ^{2}{\left (a + b \log {\left (c x^{n} \right )} \right )} \cos {\left (a + b \log {\left (c x^{n} \right )} \right )}}{b n} - \frac {2 \cos ^{3}{\left (a + b \log {\left (c x^{n} \right )} \right )}}{3 b n} & \text {otherwise} \end {cases} \]

[In]

integrate(sin(a+b*ln(c*x**n))**3/x,x)

[Out]

Piecewise((log(x)*sin(a)**3, Eq(b, 0) & (Eq(b, 0) | Eq(n, 0))), (log(x)*sin(a + b*log(c))**3, Eq(n, 0)), (-sin
(a + b*log(c*x**n))**2*cos(a + b*log(c*x**n))/(b*n) - 2*cos(a + b*log(c*x**n))**3/(3*b*n), True))

Maxima [B] (verification not implemented)

Leaf count of result is larger than twice the leaf count of optimal. 233 vs. \(2 (41) = 82\).

Time = 0.23 (sec) , antiderivative size = 233, normalized size of antiderivative = 5.42 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=\frac {{\left (\cos \left (6 \, b \log \left (c\right )\right ) \cos \left (3 \, b \log \left (c\right )\right ) + \sin \left (6 \, b \log \left (c\right )\right ) \sin \left (3 \, b \log \left (c\right )\right ) + \cos \left (3 \, b \log \left (c\right )\right )\right )} \cos \left (3 \, b \log \left (x^{n}\right ) + 3 \, a\right ) - 9 \, {\left (\cos \left (4 \, b \log \left (c\right )\right ) \cos \left (3 \, b \log \left (c\right )\right ) + \cos \left (3 \, b \log \left (c\right )\right ) \cos \left (2 \, b \log \left (c\right )\right ) + \sin \left (4 \, b \log \left (c\right )\right ) \sin \left (3 \, b \log \left (c\right )\right ) + \sin \left (3 \, b \log \left (c\right )\right ) \sin \left (2 \, b \log \left (c\right )\right )\right )} \cos \left (b \log \left (x^{n}\right ) + a\right ) - {\left (\cos \left (3 \, b \log \left (c\right )\right ) \sin \left (6 \, b \log \left (c\right )\right ) - \cos \left (6 \, b \log \left (c\right )\right ) \sin \left (3 \, b \log \left (c\right )\right ) + \sin \left (3 \, b \log \left (c\right )\right )\right )} \sin \left (3 \, b \log \left (x^{n}\right ) + 3 \, a\right ) + 9 \, {\left (\cos \left (3 \, b \log \left (c\right )\right ) \sin \left (4 \, b \log \left (c\right )\right ) - \cos \left (4 \, b \log \left (c\right )\right ) \sin \left (3 \, b \log \left (c\right )\right ) + \cos \left (2 \, b \log \left (c\right )\right ) \sin \left (3 \, b \log \left (c\right )\right ) - \cos \left (3 \, b \log \left (c\right )\right ) \sin \left (2 \, b \log \left (c\right )\right )\right )} \sin \left (b \log \left (x^{n}\right ) + a\right )}{24 \, b n} \]

[In]

integrate(sin(a+b*log(c*x^n))^3/x,x, algorithm="maxima")

[Out]

1/24*((cos(6*b*log(c))*cos(3*b*log(c)) + sin(6*b*log(c))*sin(3*b*log(c)) + cos(3*b*log(c)))*cos(3*b*log(x^n) +
 3*a) - 9*(cos(4*b*log(c))*cos(3*b*log(c)) + cos(3*b*log(c))*cos(2*b*log(c)) + sin(4*b*log(c))*sin(3*b*log(c))
 + sin(3*b*log(c))*sin(2*b*log(c)))*cos(b*log(x^n) + a) - (cos(3*b*log(c))*sin(6*b*log(c)) - cos(6*b*log(c))*s
in(3*b*log(c)) + sin(3*b*log(c)))*sin(3*b*log(x^n) + 3*a) + 9*(cos(3*b*log(c))*sin(4*b*log(c)) - cos(4*b*log(c
))*sin(3*b*log(c)) + cos(2*b*log(c))*sin(3*b*log(c)) - cos(3*b*log(c))*sin(2*b*log(c)))*sin(b*log(x^n) + a))/(
b*n)

Giac [F]

\[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=\int { \frac {\sin \left (b \log \left (c x^{n}\right ) + a\right )^{3}}{x} \,d x } \]

[In]

integrate(sin(a+b*log(c*x^n))^3/x,x, algorithm="giac")

[Out]

integrate(sin(b*log(c*x^n) + a)^3/x, x)

Mupad [B] (verification not implemented)

Time = 26.54 (sec) , antiderivative size = 37, normalized size of antiderivative = 0.86 \[ \int \frac {\sin ^3\left (a+b \log \left (c x^n\right )\right )}{x} \, dx=-\frac {3\,\cos \left (a+b\,\ln \left (c\,x^n\right )\right )-{\cos \left (a+b\,\ln \left (c\,x^n\right )\right )}^3}{3\,b\,n} \]

[In]

int(sin(a + b*log(c*x^n))^3/x,x)

[Out]

-(3*cos(a + b*log(c*x^n)) - cos(a + b*log(c*x^n))^3)/(3*b*n)